#ifndef lint
static const char yysccsid[] = "@(#)yaccpar	1.9 (Berkeley) 02/21/93";
#endif

#define YYBYACC 1
#define YYMAJOR 1
#define YYMINOR 9
#define YYPATCH 20130304

#define YYEMPTY        (-1)
#define yyclearin      (yychar = YYEMPTY)
#define yyerrok        (yyerrflag = 0)
#define YYRECOVERING() (yyerrflag != 0)

#define YYPREFIX "yy"

#define YYPURE 0

#line 10 "tree.y"
#include "cmanifs.h"
#include "cglobals.h"
EXPRPTR varnode();
EXPRPTR sconsnode(),connode(),f_connode(),filenode();
EXPRPTR binnode(),unode(),ternode();
EXPRPTR exit_phrase();
#line 26 "y.tab.c"

#ifndef YYSTYPE
typedef int YYSTYPE;
#endif

/* compatibility with bison */
#ifdef YYPARSE_PARAM
/* compatibility with FreeBSD */
# ifdef YYPARSE_PARAM_TYPE
#  define YYPARSE_DECL() yyparse(YYPARSE_PARAM_TYPE YYPARSE_PARAM)
# else
#  define YYPARSE_DECL() yyparse(void *YYPARSE_PARAM)
# endif
#else
# define YYPARSE_DECL() yyparse(void)
#endif

/* Parameters sent to lex. */
#ifdef YYLEX_PARAM
# define YYLEX_DECL() yylex(void *YYLEX_PARAM)
# define YYLEX yylex(YYLEX_PARAM)
#else
# define YYLEX_DECL() yylex(void)
# define YYLEX yylex()
#endif

/* Parameters sent to yyerror. */
#ifndef YYERROR_DECL
#define YYERROR_DECL() yyerror(const char *s)
#endif
#ifndef YYERROR_CALL
#define YYERROR_CALL(msg) yyerror(msg)
#endif

extern int YYPARSE_DECL();

#define CONST 257
#define WRD 258
#define STRG 259
#define SWCHAR 260
#define WHERE 261
#define IDENT 262
#define STRING_QUOTED 263
#define NUMB 264
#define NULLRY 265
#define NONNULLRY 266
#define OP 267
#define DEFN 268
#define DECL 269
#define CXFILE 270
#define NMB 271
#define SPL 272
#define FRMLS 273
#define VALOF 274
#define NGLOB 275
#define EGLOB 276
#define OPNAME 277
#define INTERIOR 278
#define TERMINAL 279
#define YYERRCODE 256
static const short yylhs[] = {                           -1,
    0,    2,    2,    2,    2,    3,    6,    4,    4,    7,
    7,    7,   10,    8,    9,    9,   14,   15,   12,   11,
   11,   16,   11,   17,   11,   13,   13,    1,    1,    1,
    1,    5,    5,
};
static const short yylen[] = {                            2,
    1,    7,    7,    7,    6,    7,    0,    7,    5,    9,
   10,   11,    0,    5,    1,    2,    0,    0,    6,    7,
    6,    0,    5,    0,    5,    1,    2,    1,    1,    1,
    1,    1,    2,
};
static const short yydefred[] = {                         0,
    0,    0,    1,   29,   30,   31,   28,    0,    0,    0,
    0,   13,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    7,    0,    0,    0,   15,    0,    0,    0,
    0,    9,    0,    0,    0,    0,    0,   14,   16,    0,
    0,    0,    5,   32,    0,    0,    0,    0,    0,    4,
    2,    3,    8,   33,    0,    0,    0,   26,    0,    0,
    0,    0,    0,    0,    0,    0,    0,   27,   23,   25,
    0,   10,    0,    0,   17,   21,    0,    0,   11,    0,
    0,   20,    0,   12,    0,    0,    0,    0,   19,    6,
};
static const short yydgoto[] = {                          2,
    3,    4,   62,    5,   45,   33,    6,    7,   26,   17,
   27,   67,   59,   81,   87,   36,   37,
};
static const short yysindex[] = {                       -87,
 -235,    0,    0,    0,    0,    0,    0,  -68, -238, -233,
  -56,    0, -225, -223, -222, -234,  -48, -218, -215, -214,
  -42,  -41,    0, -211, -219,  -84,    0,  -39,  -38,  -37,
  -36,    0,  -87,  -87, -204, -216, -213,    0,    0,  -33,
  -32,  -29,    0,    0,  -83,  -75, -202, -197, -197,    0,
    0,    0,    0,    0,  -25,  -53,  -24,    0,  -93,  -92,
 -201,  -23,  -25,  -22, -246,  -21,  -87,    0,    0,    0,
 -195,    0,  -20,  -25,    0,    0,  -19, -189,    0,  -17,
 -197,    0, -187,    0, -184, -185,  -13,  -12,    0,    0,
};
static const short yyrindex[] = {                         0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0, -263,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,  -11,    0,    0,    0,    0,    0,
};
static const short yygindex[] = {                         0,
  -31,    0,  -57,    0,    0,    0,    0,    0,    0,    0,
   57,    0,  -44,    0,    0,    0,    0,
};
#define YYTABLESIZE 170
static const short yytable[] = {                         69,
   70,   44,   46,    1,   60,   73,   25,    1,   38,   53,
    8,   22,   24,   54,   56,    1,   80,   55,    9,   10,
   11,    8,   13,   14,   64,   66,   75,   12,   15,    9,
   10,   11,   18,   19,   16,   77,   85,    1,   12,   63,
   22,   23,   25,   24,   28,   20,   21,   29,   35,   30,
   31,   32,   34,   40,   41,   42,   43,   47,   48,   50,
   51,   57,   49,   52,   58,   61,   65,   78,   71,   72,
   74,   76,   79,   82,   83,   84,   86,   68,   88,   89,
   90,   18,   39,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
    0,    0,    0,    0,    0,    0,    0,    0,   68,   68,
};
static const short yycheck[] = {                         93,
   93,   33,   34,   91,   49,   63,   91,   91,   93,   93,
  257,  275,  276,   45,   46,   91,   74,   93,  265,  266,
  267,  257,   91,  262,   56,   57,  273,  274,  262,  265,
  266,  267,  258,  259,   91,   67,   81,   91,  274,   93,
  264,  264,   91,  278,  263,  271,  272,  263,  268,  264,
   93,   93,  264,   93,   93,   93,   93,  262,  275,   93,
   93,  264,  276,   93,  262,   91,   91,  263,  270,   93,
   93,   93,   93,   93,  264,   93,  264,  262,  264,   93,
   93,   93,   26,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,
   -1,   -1,   -1,   -1,   -1,   -1,   -1,   -1,  262,  262,
};
#define YYFINAL 2
#ifndef YYDEBUG
#define YYDEBUG 0
#endif
#define YYMAXTOKEN 279
#if YYDEBUG
static const char *yyname[] = {

"end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"'['",0,"']'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"CONST","WRD","STRG",
"SWCHAR","WHERE","IDENT","STRING_QUOTED","NUMB","NULLRY","NONNULLRY","OP",
"DEFN","DECL","CXFILE","NMB","SPL","FRMLS","VALOF","NGLOB","EGLOB","OPNAME",
"INTERIOR","TERMINAL",
};
static const char *yyrule[] = {
"$accept : accept",
"accept : expr",
"constant : '[' CONST '[' STRG STRING_QUOTED ']' ']'",
"constant : '[' CONST '[' NMB NUMB ']' ']'",
"constant : '[' CONST '[' WRD STRING_QUOTED ']' ']'",
"constant : '[' CONST '[' SPL ']' ']'",
"file : '[' CXFILE STRING_QUOTED NUMB NUMB NUMB ']'",
"$$1 :",
"variable : '[' NONNULLRY IDENT NUMB $$1 exprlist ']'",
"variable : '[' NULLRY IDENT NUMB ']'",
"operator : '[' OP '[' INTERIOR NUMB expr ']' file ']'",
"operator : '[' OP '[' INTERIOR NUMB expr expr ']' file ']'",
"operator : '[' OP '[' INTERIOR NUMB expr expr expr ']' file ']'",
"$$2 :",
"valof : '[' VALOF $$2 valofbody ']'",
"valofbody : statement",
"valofbody : valofbody statement",
"$$3 :",
"$$4 :",
"formals : '[' FRMLS $$3 argnames $$4 ']'",
"statement : '[' DEFN IDENT NUMB formals expr ']'",
"statement : '[' DEFN IDENT NUMB expr ']'",
"$$5 :",
"statement : '[' $$5 NGLOB argnames ']'",
"$$6 :",
"statement : '[' $$6 EGLOB argnames ']'",
"argnames : IDENT",
"argnames : argnames IDENT",
"expr : valof",
"expr : constant",
"expr : variable",
"expr : operator",
"exprlist : expr",
"exprlist : exprlist expr",

};
#endif

int      yydebug;
int      yynerrs;

int      yyerrflag;
int      yychar;
YYSTYPE  yyval;
YYSTYPE  yylval;

/* define the initial stack-sizes */
#ifdef YYSTACKSIZE
#undef YYMAXDEPTH
#define YYMAXDEPTH  YYSTACKSIZE
#else
#ifdef YYMAXDEPTH
#define YYSTACKSIZE YYMAXDEPTH
#else
#define YYSTACKSIZE 10000
#define YYMAXDEPTH  500
#endif
#endif

#define YYINITSTACKSIZE 500

typedef struct {
    unsigned stacksize;
    short    *s_base;
    short    *s_mark;
    short    *s_last;
    YYSTYPE  *l_base;
    YYSTYPE  *l_mark;
} YYSTACKDATA;
/* variables for the parser stack */
static YYSTACKDATA yystack;

#if YYDEBUG
#include <stdio.h>		/* needed for printf */
#endif

#include <stdlib.h>	/* needed for malloc, etc */
#include <string.h>	/* needed for memset */

/* allocate initial stack or double stack size, up to YYMAXDEPTH */
static int yygrowstack(YYSTACKDATA *data)
{
    int i;
    unsigned newsize;
    short *newss;
    YYSTYPE *newvs;

    if ((newsize = data->stacksize) == 0)
        newsize = YYINITSTACKSIZE;
    else if (newsize >= YYMAXDEPTH)
        return -1;
    else if ((newsize *= 2) > YYMAXDEPTH)
        newsize = YYMAXDEPTH;

    i = (int) (data->s_mark - data->s_base);
    newss = (short *)realloc(data->s_base, newsize * sizeof(*newss));
    if (newss == 0)
        return -1;

    data->s_base = newss;
    data->s_mark = newss + i;

    newvs = (YYSTYPE *)realloc(data->l_base, newsize * sizeof(*newvs));
    if (newvs == 0)
        return -1;

    data->l_base = newvs;
    data->l_mark = newvs + i;

    data->stacksize = newsize;
    data->s_last = data->s_base + newsize - 1;
    return 0;
}

#if YYPURE || defined(YY_NO_LEAKS)
static void yyfreestack(YYSTACKDATA *data)
{
    free(data->s_base);
    free(data->l_base);
    memset(data, 0, sizeof(*data));
}
#else
#define yyfreestack(data) /* nothing */
#endif

#define YYABORT  goto yyabort
#define YYREJECT goto yyabort
#define YYACCEPT goto yyaccept
#define YYERROR  goto yyerrlab

int
YYPARSE_DECL()
{
    int yym, yyn, yystate;
#if YYDEBUG
    const char *yys;

    if ((yys = getenv("YYDEBUG")) != 0)
    {
        yyn = *yys;
        if (yyn >= '0' && yyn <= '9')
            yydebug = yyn - '0';
    }
#endif

    yynerrs = 0;
    yyerrflag = 0;
    yychar = YYEMPTY;
    yystate = 0;

#if YYPURE
    memset(&yystack, 0, sizeof(yystack));
#endif

    if (yystack.s_base == NULL && yygrowstack(&yystack)) goto yyoverflow;
    yystack.s_mark = yystack.s_base;
    yystack.l_mark = yystack.l_base;
    yystate = 0;
    *yystack.s_mark = 0;

yyloop:
    if ((yyn = yydefred[yystate]) != 0) goto yyreduce;
    if (yychar < 0)
    {
        if ((yychar = YYLEX) < 0) yychar = 0;
#if YYDEBUG
        if (yydebug)
        {
            yys = 0;
            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
            if (!yys) yys = "illegal-symbol";
            printf("%sdebug: state %d, reading %d (%s)\n",
                    YYPREFIX, yystate, yychar, yys);
        }
#endif
    }
    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
#if YYDEBUG
        if (yydebug)
            printf("%sdebug: state %d, shifting to state %d\n",
                    YYPREFIX, yystate, yytable[yyn]);
#endif
        if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack))
        {
            goto yyoverflow;
        }
        yystate = yytable[yyn];
        *++yystack.s_mark = yytable[yyn];
        *++yystack.l_mark = yylval;
        yychar = YYEMPTY;
        if (yyerrflag > 0)  --yyerrflag;
        goto yyloop;
    }
    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
        yyn = yytable[yyn];
        goto yyreduce;
    }
    if (yyerrflag) goto yyinrecovery;

    yyerror("syntax error");

    goto yyerrlab;

yyerrlab:
    ++yynerrs;

yyinrecovery:
    if (yyerrflag < 3)
    {
        yyerrflag = 3;
        for (;;)
        {
            if ((yyn = yysindex[*yystack.s_mark]) && (yyn += YYERRCODE) >= 0 &&
                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
            {
#if YYDEBUG
                if (yydebug)
                    printf("%sdebug: state %d, error recovery shifting\
 to state %d\n", YYPREFIX, *yystack.s_mark, yytable[yyn]);
#endif
                if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack))
                {
                    goto yyoverflow;
                }
                yystate = yytable[yyn];
                *++yystack.s_mark = yytable[yyn];
                *++yystack.l_mark = yylval;
                goto yyloop;
            }
            else
            {
#if YYDEBUG
                if (yydebug)
                    printf("%sdebug: error recovery discarding state %d\n",
                            YYPREFIX, *yystack.s_mark);
#endif
                if (yystack.s_mark <= yystack.s_base) goto yyabort;
                --yystack.s_mark;
                --yystack.l_mark;
            }
        }
    }
    else
    {
        if (yychar == 0) goto yyabort;
#if YYDEBUG
        if (yydebug)
        {
            yys = 0;
            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
            if (!yys) yys = "illegal-symbol";
            printf("%sdebug: state %d, error recovery discards token %d (%s)\n",
                    YYPREFIX, yystate, yychar, yys);
        }
#endif
        yychar = YYEMPTY;
        goto yyloop;
    }

yyreduce:
#if YYDEBUG
    if (yydebug)
        printf("%sdebug: state %d, reducing by rule %d (%s)\n",
                YYPREFIX, yystate, yyn, yyrule[yyn]);
#endif
    yym = yylen[yyn];
    if (yym)
        yyval = yystack.l_mark[1-yym];
    else
        memset(&yyval, 0, sizeof yyval);
    switch (yyn)
    {
case 1:
#line 21 "tree.y"
	{ yyval.eptr = yystack.l_mark[0].eptr; }
break;
case 2:
#line 25 "tree.y"
	{ yyval.eptr =
sconsnode(wordtable[yystack.l_mark[-2].value],filenode(findword("error"),1,1,1)); }
break;
case 3:
#line 28 "tree.y"
	{ yyval.eptr = f_connode(yystack.l_mark[-2].numb); }
break;
case 4:
#line 30 "tree.y"
	{ yyval.eptr = connode(F_WORD,yystack.l_mark[-2].value); }
break;
case 5:
#line 32 "tree.y"
	{ yyval.eptr = unode(yystack.l_mark[-2].value,0,NULL); }
break;
case 6:
#line 36 "tree.y"
	{ yyval.eptr
=filenode(yystack.l_mark[-4].value,(int)yystack.l_mark[-3].numb,(int)yystack.l_mark[-2].numb,(int)yystack.l_mark[-1].numb); }
break;
case 7:
#line 40 "tree.y"
	{ pushexpr(); }
break;
case 8:
#line 41 "tree.y"
	{ yyval.eptr = varnode(NONNULLARY,yystack.l_mark[-4].ident); }
break;
case 9:
#line 43 "tree.y"
	{ yyval.eptr = varnode(NULLARY,yystack.l_mark[-2].ident); }
break;
case 10:
#line 47 "tree.y"
	{  yyval.eptr=unode(yystack.l_mark[-5].value,(int)yystack.l_mark[-4].numb,yystack.l_mark[-3].eptr,yystack.l_mark[-1].eptr); }
break;
case 11:
#line 49 "tree.y"
	{  yyval.eptr=binnode(yystack.l_mark[-6].value,(int)yystack.l_mark[-5].numb,yystack.l_mark[-4].eptr,yystack.l_mark[-3].eptr,yystack.l_mark[-1].eptr);}
break;
case 12:
#line 51 "tree.y"
	{ yyval.eptr=ternode(yystack.l_mark[-7].value,(int)yystack.l_mark[-6].numb,yystack.l_mark[-5].eptr,
                                         yystack.l_mark[-4].eptr,yystack.l_mark[-3].eptr,yystack.l_mark[-1].eptr); }
break;
case 13:
#line 55 "tree.y"
	{ enter_phrase(); }
break;
case 14:
#line 56 "tree.y"
	{ yyval.eptr = exit_phrase(); }
break;
case 17:
#line 64 "tree.y"
	{ enter_function(); }
break;
case 18:
#line 65 "tree.y"
	{ idusage = (int) U_NORMAL; }
break;
case 20:
#line 69 "tree.y"
	{  define(yystack.l_mark[-4].ident,yystack.l_mark[-1].eptr);
               exit_function();
            }
break;
case 21:
#line 73 "tree.y"
	{  define(yystack.l_mark[-3].ident,yystack.l_mark[-1].eptr); }
break;
case 22:
#line 74 "tree.y"
	{ idusage = (int) U_NGLOBAL; }
break;
case 23:
#line 76 "tree.y"
	{ idusage = (int) U_NORMAL; }
break;
case 24:
#line 77 "tree.y"
	{ idusage = (int) U_EGLOBAL;
                        if (p_stack->p_iselem==0){
                            p_stack->p_iselem=1;
                            elemlevel++; }
                      }
break;
case 25:
#line 83 "tree.y"
	{ idusage = (int) U_NORMAL; }
break;
case 28:
#line 90 "tree.y"
	{ yyval.eptr = yystack.l_mark[0].eptr; }
break;
case 29:
#line 91 "tree.y"
	{ yyval.eptr = yystack.l_mark[0].eptr; }
break;
case 30:
#line 92 "tree.y"
	{   yyval.eptr = yystack.l_mark[0].eptr; }
break;
case 31:
#line 93 "tree.y"
	{ yyval.eptr = yystack.l_mark[0].eptr; }
break;
case 32:
#line 97 "tree.y"
	{ appeexpr(yystack.l_mark[0].eptr); }
break;
case 33:
#line 99 "tree.y"
	{ appeexpr(yystack.l_mark[0].eptr); }
break;
#line 596 "y.tab.c"
    }
    yystack.s_mark -= yym;
    yystate = *yystack.s_mark;
    yystack.l_mark -= yym;
    yym = yylhs[yyn];
    if (yystate == 0 && yym == 0)
    {
#if YYDEBUG
        if (yydebug)
            printf("%sdebug: after reduction, shifting from state 0 to\
 state %d\n", YYPREFIX, YYFINAL);
#endif
        yystate = YYFINAL;
        *++yystack.s_mark = YYFINAL;
        *++yystack.l_mark = yyval;
        if (yychar < 0)
        {
            if ((yychar = YYLEX) < 0) yychar = 0;
#if YYDEBUG
            if (yydebug)
            {
                yys = 0;
                if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                if (!yys) yys = "illegal-symbol";
                printf("%sdebug: state %d, reading %d (%s)\n",
                        YYPREFIX, YYFINAL, yychar, yys);
            }
#endif
        }
        if (yychar == 0) goto yyaccept;
        goto yyloop;
    }
    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
        yystate = yytable[yyn];
    else
        yystate = yydgoto[yym];
#if YYDEBUG
    if (yydebug)
        printf("%sdebug: after reduction, shifting from state %d \
to state %d\n", YYPREFIX, *yystack.s_mark, yystate);
#endif
    if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack))
    {
        goto yyoverflow;
    }
    *++yystack.s_mark = (short) yystate;
    *++yystack.l_mark = yyval;
    goto yyloop;

yyoverflow:
    yyerror("yacc stack overflow");

yyabort:
    yyfreestack(&yystack);
    return (1);

yyaccept:
    yyfreestack(&yystack);
    return (0);
}
